home *** CD-ROM | disk | FTP | other *** search
Text File | 1991-03-06 | 1.6 KB | 49 lines | [TEXT/GEOL] |
- Item forwarded by STATTENFIELD to D.LAMOUR
-
- Item 0728417 30-Oct-90 12:50PST
-
- From: D2275 Bear River Assoc, Engineering,PRT
-
- To: MACAPP.TECH$ MacApp Technical
-
- cc: PHAROS.TECH Pharos Tech, Tech Staff,PRT
-
- Sub: RE:GridView Selection Problem
-
- From: Steve Evangelou, Bear River Associates
- To: MACAPP.TECH$
- Subject: RE: GridView Selection problem in Calc program
- cc: Scott D.
-
- The following versions of TRowSelector.ComputeAnchorCell and
- TColumnSelector.ComputeAnchorCell will improve the performance of Calc when
- shift-clicking on a row or column button when some cells are already selected.
-
- PROCEDURE TRowSelector.ComputeAnchorCell(VAR clickedCell: GridCell); OVERRIDE;
- BEGIN
- INHERITED ComputeAnchorCell(clickedCell);
- fAnchorCell.h := 1;
-
- clickedCell.h := 1; { Don't really need this line anymore. }
- fCellSelector.ComputeAnchorCell(clickedCell);
- { Next two lines are new. }
- fCellSelector.fAnchorCell.h := 1;
- fAnchorCell.v := fCellSelector.fAnchorCell.v;
- END;
-
- PROCEDURE TColumnSelector.ComputeAnchorCell(VAR clickedCell: GridCell);
- OVERRIDE;
- BEGIN
- INHERITED ComputeAnchorCell(clickedCell);
- fAnchorCell.v := 1;
-
- clickedCell.h := 1; { Don't really need this line anymore. }
- fCellSelector.ComputeAnchorCell(clickedCell);
- fCellSelector.fAnchorCell.v := 1;
- fAnchorCell.h := fCellSelector.fAnchorCell.h;
- END;
-
- The resulting behavior is similar to Excel, so I can't claim it's a complete
- fix. However, it's certainly an improvement.
-
-